home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / Dev / Triton / Developer / M2Amiga / Demo.mod next >
Text File  |  1995-06-28  |  3KB  |  119 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.    
  3.  | $VER: Demo.mod 1.01 (26.09.94) by Stefan Schulz [sts]
  4.  
  5.  | Desc: Nonfunctional User Interface as Demonstration
  6.  
  7.  | Dist: This Module is © Copyright 1994 by Stefan Schulz
  8.  |       It may be freely Distributed (Freeware)
  9.  
  10.  | Rqrs: triton.library V1.1
  11.  |       Triton is © Copyright 1993/1994 by Stefan Zeiger
  12.  
  13.  | Lang: M2Amiga
  14.  | Trns: M2Amiga Modula 2 Software Development System
  15.  |       © Copyright by A+L AG, CH-2540 Grenchen
  16.  
  17.  | Hist: Revision 1.01 [sts] \26.09.94\\26.09.94\
  18.  |        `- Names corrected to M2 Standard
  19.  | 
  20.  |       Revision 1.00 [sts] \06.09.94\\06.09.94\
  21.  |        `- initial revision
  22.  
  23.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  24.  
  25. MODULE Demo;
  26.  
  27. (* IMPORTS ********************************************************************** *)
  28.  
  29. IMPORT    td    : TritonD,
  30.     tl    : TritonL;
  31.  
  32. IMPORT    A    : Arts,
  33.     ed    : ExecD,
  34.     id    : IntuitionD,
  35.     S    : SYSTEM,
  36.     ud    : UtilityD;
  37.  
  38. (* ****************************************************************************** *)
  39.  
  40. (* --- Objects ------------------------------------------------------------------ *)
  41.  
  42. VAR    App        : td.AppPtr;
  43.     Project        : td.ProjectPtr;
  44.  
  45. VAR    AppBuffer    : ARRAY [0..3] OF ud.TagItem;
  46.     ProjectBuffer    : ARRAY [0..15] OF ud.TagItem;
  47.  
  48.  
  49. PROCEDURE InitApplication;
  50.  
  51.  BEGIN
  52.  
  53.  App:= tl.CreateApp
  54.     ( S.TAG(AppBuffer,
  55.         td.caName,     S.ADR("M2AmigaDemo"),
  56.         td.caLongName, S.ADR("M2Amiga Demo Application"),
  57.         td.caVersion,  S.ADR("1.0"),
  58.       ud.tagDone)
  59.     ); (* CreateApp *)
  60.  
  61.  A.Assert(App#NIL, S.ADR("Couldn't create Application!"));
  62.  
  63.  END InitApplication;
  64.  
  65.  
  66. PROCEDURE InitProject;
  67.  
  68.  BEGIN
  69.  
  70.  Project:= tl.OpenProject
  71.     ( App,
  72.       S.TAG(ProjectBuffer,
  73.       td.wiID,    10,
  74.       td.wiTitle, S.ADR("M2Amiga Demo Application"),
  75.       
  76.       td.wiBackfill, td.bfFillBackground,
  77.       td.wiPosition, td.wpCenterDisplay,
  78.       td.grVert,     td.grAlign,
  79.         td.obSpace,    td.stNormal,
  80.         td.grHoriz,    td.grPropSpaces+td.grCenter,
  81.           td.obSpace,    td.stNormal,
  82.           td.obText,     NIL,
  83.                    td.atText,  S.ADR("Demo Demo Demo"),
  84.                    td.atFlags, td.tx3D,
  85.           td.obSpace,    td.stNormal,
  86.         td.grEnd,      NIL,
  87.         td.obSpace,    td.stNormal,
  88.       td.grEnd,      NIL,  
  89.       
  90.       ud.tagEnd)
  91.     ); (* OpenProject *)
  92.  
  93.  A.Assert(Project#NIL, S.ADR("Couldn't open Project!"));
  94.  
  95.  END InitProject;
  96.  
  97.  
  98.  
  99. BEGIN
  100.  
  101. InitApplication;
  102. InitProject;
  103.  
  104. IGNORE tl.Wait( App, 0 );
  105.  
  106. CLOSE
  107.  
  108. IF    Project # NIL
  109.  THEN    tl.CloseProject(Project);
  110.     Project:= NIL;
  111.  END;
  112.  
  113. IF    App # NIL
  114.  THEN    tl.DeleteApp(App);
  115.     App:= NIL;
  116.  END;
  117.  
  118. END Demo.
  119.